﻿
Partial Class frmPopUpEleccionCompania
    Inherits System.Web.UI.Page


    'Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    '    If Not Page.IsPostBack Then
    '        Response.Cache.SetCacheability(HttpCacheability.NoCache)
    '        Response.Cache.SetExpires(DateTime.Now().Subtract(New TimeSpan(1, 0, 0)))
    '        Response.Cache.SetLastModified(DateTime.Now)
    '        Response.Cache.SetAllowResponseInBrowserHistory(False)

    '        fnCargarComboCompania()
    '    End If
    '    Me.lblMensaje.Text = ""
    'End Sub



    'Private Sub fnCargarComboCompania()
    '    Try
    '        Dim oCompania As New srvNegCompania.srvNegCompania
    '        Dim ds As DataSet
    '        Dim sError As String
    '        Dim bOk As Boolean
    '        bOk = oCompania.Listar(1, 0, ds, sError)
    '        If Not bOk Then
    '            Me.lblMensaje.Text = sError
    '        Else

    '        End If
    '        Me.ddlCompania.DataSource = ds
    '        ddlCompania.DataTextField = "DESCRIPCION"
    '        ddlCompania.DataValueField = "COMPANIA"
    '        ddlCompania.DataBind()
    '    Catch ex As Exception
    '        lblMensaje.Text = C_MSG_ERROR_INESPERADO
    '        CreateLogFiles()
    '        ErrorLog(Server.MapPath("Logs/ErrorLog"), ex.Message + ex.StackTrace)
    '    End Try
    'End Sub


    'Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
    '    RegisterStartupScript("Aceptar", "<script language='javascript'> {var opener = window.dialogArguments;document.getElementById('hidCerrarVentana').value='0';opener.SetearCompania('" + ddlCompania.SelectedItem().ToString + "');window.close(); } </script>")

    'End Sub
End Class
